home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / reqsupport.def < prev    next >
Encoding:
Modula Definition  |  1993-11-04  |  1.2 KB  |  36 lines
  1. (* ReqSupport.def   ported to M2Amiga 4.0 1991 by Jürgen Zimmermann  *)
  2. (*                  Hilfsroutinen der Oberon-Implementation          *)
  3. (* Req.mod          ported to Oberon 1990 by Achim Siebert           *)
  4. (* reqlibrary.h   © 1988/1989 reserved by Colin Fox and Bruce Dawson *)
  5. (* changed          8.3.92 by Stefan Koehle                          *)
  6.  
  7. DEFINITION MODULE ReqSupport;
  8.  
  9. IMPORT DosD ;
  10. FROM IntuitionD IMPORT WindowPtr;
  11.  
  12.  
  13.  
  14. PROCEDURE GetPathFromLock(VAR Path   : ARRAY OF CHAR;
  15.                           ThisLockPtr: DosD.FileLockPtr);
  16.  
  17. PROCEDURE FileRequest(RequesterWindow : WindowPtr;
  18.                       load            : BOOLEAN; (* FALSE means saving *)
  19.                       getPath         : BOOLEAN ;
  20.                       Title           : ARRAY OF CHAR;
  21.                       VAR FileNamePath,
  22.                           FileName    : ARRAY OF CHAR): BOOLEAN;
  23.  
  24. PROCEDURE ThreeGadRequest(header,body,posText,midText,negText:
  25.                           ARRAY OF CHAR):  INTEGER ;
  26.  
  27. PROCEDURE SimpleRequest(header,body,posText  : ARRAY OF CHAR);
  28.  
  29. PROCEDURE DeadEndExit(header,body,posText: ARRAY OF CHAR) ;
  30.  
  31. PROCEDURE TwoGadRequest(header,body,posText,negText : ARRAY OF CHAR): BOOLEAN;
  32.  
  33.  
  34.  
  35. END ReqSupport.
  36.